home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8404.d64
/
drawline demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
54 lines
100 PRINT"[147]"TAB(10)"SINUSPLOT - DEMO
110 [153]"ES WIRD EIN ACHSENKREUZ UND DANN
120 PRINT"EINE SINUSFUNKTION IN HOCHAUF-
130 [153]"LOESENDER GRAFIK GEPLOTTET.
140 PRINT"ES WERDEN DIE ZEITEN ZUERST FUER
150 [153]"EINE REINE BASIC-VERSION UND DANN
160 PRINT"FUER EINE VERSION, DIE DIE MASCHINEN-
170 [153]"SPRACHEN GRAFIKAID BENUETZT, GEMESSEN.
180 PRINT"BITTE EINE TASTE DRUECKEN ![157]";
190 POKE198,0:POKE204,0:WAIT198,1:POKE204,1:GETX$
200 PRINT" ":TI$="000000"
210 V=53248:AD=8192:REM DEMO AUS 64 INTERN SEITE 91 - 92
220 A1=PEEK(V+17):A2=PEEK(V+24)
230 POKEV+17,59
240 POKEV+24,24
250 FORI=1024TO2023:POKEI,1:NEXT
260 FORI=8192TO16383:POKEI,0:NEXT
270 Y=100:FORX=0TO319:GOSUB360:NEXT
280 X=160:FORY=0TO199:GOSUB360:NEXT
290 X=0
300 FORI=-3.14159265TO3.14159265STEP.0196349541
310 Y=100+99*SIN(I):GOSUB360:X=X+1:NEXT
320 T1$=TI$:FORI=1TO1000:NEXT
330 POKEV+17,A1:POKEV+24,A2
340 PRINT"[147]DAS WAR DAS REINE BASICPROGRAMM.
350 [153]"ES DAUERTE ";:X$[178]T1$:[141]620:[137]390
360 OY[178]320[172][181](Y[173]8)[170](Y[175]7):OX[178]8[172][181](X[173]8)
370 MA[178]2[174]((7[171]X)[175]7):AV[178]AD[170]OY[170]OX
380 [151]AV,[194](AV)[176]MA:[142]
390 [153]"BITTE EINE TASTE DRUECKEN !CMD";
400 [151]198,0:[151]204,0:[146]198,1:[151]204,1:[161]X$
410 [153]" ":TI$[178]"000000"
420 [158]49152:[158]49155:[158]49158,16
430 Y[178]100:[158]49170,Y:X[178]160:[158]49176,X
440 X[178]0
450 [129]I[178][171]3.14159265[164]3.14159265[169].0196349541
460 Y[178]100[170]99[172][191](I):[158]49164,X,Y:X[178]X[170]1:[130]
470 T2$[178]TI$:[129]I[178]1[164]1000:[130]
480 [158]49194
490 [153]"LOADDAS WAR DAS PROGRAMM MIT GRAFIKAID.
500 PRINT"ES DAUERTE ";:X$=T2$:GOSUB620
510 PRINT"IM GEGENSATZ ZUM 1. BEISPIEL MIT":X$=T1$:GOSUB620
520 PRINT"DIE LINIENZUEGE WERDEN JETZT GELOESCHT!
530 [153]"BITTE EINE TASTE DRUECKEN !CMD";
540 [151]198,0:[151]204,0:[146]198,1:[151]204,1:[161]X$
550 [153]" ":[158]49152:[158]49158,10
560 X[178]0
570 [129]I[178][171]3.14159265[164]3.14159265[169].0196349541
580 Y[178]100[170]99[172][191](I):[158]49167,X,Y:X[178]X[170]1:[130]
590 Y[178]100:[158]49173,Y:X[178]160:[158]49179,X
600 [129]I[178]1[164]1000:[130]
610 [158]49194:[128]
620 [153][202](X$,3,2)" MIN UND "[202](X$,5)" SEK":[142]